home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 January / MacHome Magazine Demo Disc January 2001.iso / mac / Software / Word Processing / JanusNode 1.10.sea / JanusNode 1.10 / JanusNode Resources / TextDNA / Haiku / Haiku TextDNA
Encoding:
Text File  |  2000-09-01  |  13.1 KB  |  83 lines  |  [TEXT/ttxt]
  1.  100  Subject(haiku)  < assign(black1,attributes)  100  > < assign(Sick1,adjectives)  100  >   < assign(I1,p_subjects)  100  > < assign(final1,"final,last,ultimate,endless,short,brief,mysterious,incomprehensible")  100  > < assign(rain1,"rain,snow,blow,be,age,change,heat,freeze,evolve,mutate,appear,grow,develop") 100 > < assign(icy1,RJWeather)  100  >  < assign(icy1,adjectives)  60  > < assign(lie1,p_verbsnob)  100  > < assign(on1,prepositions)  100  >  < assign(on1,gerunds)  30  > < assign(on2,prepositions)  100  > < assign(a1,s_articles)  100  >  < assign(the1,"the,this")  100  > < assign(Dream1,s_nouns)  100  > < assign(parch1,p_verbsnob)  100  > < assign(move1,s_verbsnob)  100  > < assign(wander1,"wander,roam,stray,ramble,amble,drift,float,stroll,saunter,rove") 100 > < assign(wander1,p_verbsnob) 50 > < assign(journey1,"journey,trip,wander,voyage") 100 > < assign(journey1,s_nouns) 50 > < assign(awake1,adjectives)  100  > < assign(night1,s_nouns_abs)  100  >   < assign(Dog1,s_nouns)  100  > < assign(Dog2,s_nouns)  100  > < assign(field1,s_nouns_abs)  100  > < assign(freely1,adverbs)  100  > < assign(Dog1,s_nouns_abs)  50  > < assign(Dog2,s_nouns_abs)  50  > < assign(place1,RJSymbolicPlaces)  100  > < assign(place1,MeetingPlaces)  50  > < assign(ing1,gerunds) 100  > < assign(Sick1,adjectives)  100  > < assign(now1,"midnight,now,today,yesterday,")  100  > < assign(Adj2,adjectives)  100  > < assign(boat1,s_nouns) 100  > < chooseTextDNA(line10) 100 >
  2. ****
  3. 100 Subject(line10)  { "A" 100 animals 100 | "A" 100 people 100 | < get(now1) 100 > | "All day" 100 | "One moment" 100 | "A" 100 < get(journey1)  100 > | "A" 100 < get(place1)  100 > | "At once" 100 | < get(freely1)  100 > } "," 100 < get(parch1) 100 > "ing" 100 { "the" 100 | "this" 100 | "a" 100 } < get(boat1)  100 > { < backspace() 100 > "-" 100 | "" 100 } < chooseTextDNA(line2a0) 100 > < chooseTextDNA(line20) 10 >
  4.  
  5. 100  Subject(line20,line2a0)  "     " 100 { "the" 100 | "that" 100 } { < get(boat1)  100 > | s_nouns 100 | animals 100 } "that" 100 { "never" 100 p_verbsnob 100 "ed" 100 | "once" 100 p_verbsnob 100 "ed" 100 | "didn't" 100 p_verbsnob 100 } < chooseTextDNA(line3a0) 100 > < chooseTextDNA(line30) 10 >
  6.  
  7. 100  Subject(line30,line3a0)  { "is" 100 | "was" 100 }  { attributes 100 | adjectives 100 } "." 100 < chooseTextDNA(haiku) 100 >
  8. ****
  9. 100 Subject(line10) < capitalizeNext() 100 > { "A" 100 animals 100 | "A" 100 people 100 | < get(now1)  100 > | "All day" 100 | "One moment" 100 | "A" 100 < get(journey1)  100 > | "A" 100 < get(place1)  100 > | "At once" 100 | < get(freely1)  100 > } "." 100 "No" 100 < get(dog1)  100 > "," 100 < chooseTextDNA(line2b0) 100 > < chooseTextDNA(line20) 10 >
  10.  
  11. 100  Subject(line20,line2b0)  "     " 100 { "no" 100 | "nor" 100 | "or" 100 | "just" 100 } < get(dog2)  100 > "," 100 "and" 20 { "the" 100 | "this" 100 | "a" 100 | "your" 100 | "one" 100 } < get(awake1)  100 > { < get(boat1)  100 > | "gaze" 100 | "face" 100 | "body" 100 | "being" 100 | "soul" 100 } < chooseTextDNA(line3b0) 100 > < chooseTextDNA(line30) 10 >
  12.  
  13. 100  Subject(line30,line3b0)  "is" 100 "ed" 10 { < get(parch1)  100  > "ed" 100 "with" 100 | < get(parch1)  100  > "ed" 100 "with" 100 | "flooded with" 100 | "full of" 100 | "overflowing with" 100 } { "a" 30 < get(night1)  100 > | < get(night1)  100 > "s" 80 } "." 100 < chooseTextDNA(haiku) 100 >
  14. ****
  15. 100  Subject(line10) { "In" 100 | "Alone in" 100 | "Unobserved," 100 |  < get(freely1)  100 > "in" 100 } { "the" 100 | "a" 100 | < Getsubject(Possessive) 100 > } < get(ing1)  100 > { < get(field1)  100 > | "forest" 100 | "field" 100 | "rain" 100 | "snow" 100 | "sun" 100 |  < get(place1)  100 > }  < chooseTextDNA(line2c0) 100 > < chooseTextDNA(line20) 10 >
  16.  
  17. 100  Subject(line20,line2c0)  "     " 100 "A" 100 attributes 100 { people 100 | animals 100 } < get(move1)  100 > < Getsubject(Possessive) 100 > { RJBodyParts 100 | < get(night1)  100 > } < chooseTextDNA(line3c0) 100 > < chooseTextDNA(line30) 10 >
  18.  
  19. 100  Subject(line30,line3c0)  { "Until" 100 | "Because" 100 | "So that" 100 } "it is" 100 < get(Adj2)  100 > < chooseTextDNA(haiku) 100 >
  20. ****
  21. 100  Subject(line10) < get(Adj2)  100 > { "in its" 100  < get(final1)  50 > < get(journey1)  100 > | "on its" 100  < get(final1)  50 > < get(journey1)  100 > | "on a" 100 < get(journey1)  100 > | "on my" 100 < get(final1)  80 > < get(journey1)  100 > | "on my" 100 < get(awake1)  100 > < get(journey1)  100 > } ";" 100 < chooseTextDNA(line2d0) 100 > < chooseTextDNA(line20) 10 >
  22.  
  23. 100  Subject(line20,line2d0)  "     " 100 "my" 100 < get(dream1)  100 > < get(wander1)  100 > "s" 100 < chooseTextDNA(line3d0) 100 > < chooseTextDNA(line30) 10 >
  24.  
  25. 100  Subject(line30,line3d0)  < get(on1)  100 > "a" 100 < get(sick1)  100 > < get(place1)  100 > "." 100 < chooseTextDNA(haiku) 100 >
  26. ***
  27. 100  Subject(line10) { "This" 100 | "The" 100 } < get(Adj2)  50 > { < get(night1)  100 > | < get(journey1)  100 > } "'s" 100 < chooseTextDNA(line2e0) 100 > < chooseTextDNA(line20) 10 >
  28.  
  29. 100  Subject(line20,line2e0)  "     " 100 < get(freely1)  100 >  < get(awake1)  100 > < get(dream1)  100 > < Backspace() 100 > "-" 100 < chooseTextDNA(line3e0) 100 > < chooseTextDNA(line30) 10 >
  30.  
  31. 100  Subject(line30,line3e0)  { how" 100 < get(Sick1)  100  > "it is!" 100 |  how" 100 < get(Sick1)  100  > "it seems!" 100 |  how" 100 < get(Sick1)  100  > "it has become!" 100 |  how" 100 < get(Sick1)  100  > "it appears!" 100 | how" 100 < get(Sick1)  100  > "and" 100 attributes 100 "!" 100 |  "how" 100 < get(Sick1)  100  > "and" 100 adjectives 100 "!" 100 | "To whom does it matter?" 100 | "Can it be" 100 p_verbsnob 100 "ed" 100 "?" 100 | "Who made it appear?" 100 | "Where did it come from?" 100 | "How can it" 100  p_verbsnob 100 "itself" 20 "?" 100 | "Can you" 100 p_verbsnob 100 "it?" 100 | "How can you" 100 p_verbsnob 100 "it?" 100 | "Whose" 100 s_nouns_abs 100 "perceives it?" 100 | "Whose" 100 s_nouns_abs 100 p_verbsnob 100 "ed" 100 "it?" 100 | "Whose" 100 s_nouns_abs 100 p_verbsnob 100 "s" 100 "it?" 100 | "Can it" 100 "ever" 20 p_verbsnob 100 "itself?" 100 } < chooseTextDNA(haiku) 100 >
  32. ***
  33.  100  Subject(line10) { "It has" 100 | "It has" 100 | "It has" 100 | "The" 50 < get(night1)  100 > "has" 100 } { < get(rain1)  100 > "ed" 100 "on the" 100 < get(place1)  100 >  attributes 30 return 100 "     " 100 "It" 100 < get(lie1)  100  > "s" 100 | < get(rain1)  100 > "ed" 100 adverbs 100 "." 50 return 100 "     " 100 "It" 100 < get(lie1)  100  > "s" 100 | < get(rain1)  100 > "ed" 100 adverbs 100 "." 50 return 100 "     " 100 "It" 100 < get(lie1)  100  > "s" 100 | < get(rain1)  100 > "ed" 100 "enough" 100  return 100 "     " 100 < get(rain1)  100 > "ed" 100 "to" 100 < get(lie1)  100  >  | < get(rain1)  100 > "ed" 100 "so" 100 return 100 "     " 100 "as to" 100 < get(lie1)  100  > | < get(rain1)  100 > "ed" 100 adjectives 100 "and" 100 attributes 100 "." 100 return 100 "     " 100  "The" 20 < get(rain1)  100 > "ing" 100 < get(lie1)  100  > "s" 100 }  "the" 100 < get(dog1)  100  > < get(on1)  100  > < get(the1)  100  > < get(place1)  100 >  return  100  { "more" 20 < get(icy1)  100  > "and" 100 < get(Sick1)  100  > | < get(icy1)  100  > < get(Sick1)  100  > | "so" 20 < get(icy1)  100  > "and" 100 < get(Sick1)  100  > | < get(icy1)  100  > < get(Sick1)  100  > | "This" 100  < get(icy1)  100  >  < get(night1)  100  > | "A" 100  < get(icy1)  100  >  < get(night1)  100  >} "." 100  < chooseTextDNA(haiku) 100 >
  34. ***
  35. 100 subject(line10) s_articles 100  < get(icy1)  50  > < get(journey1)  100  > ":" 50  < chooseTextDNA(line2f0) 100 > < chooseTextDNA(line20) 10 >
  36.  
  37. 100  Subject(line20,line2f0)  "     " 100 < get(on1) 100 >   { < get(parch1)  100  > "ed" 100 | < get(Dog1)  100  > | < get(awake1)  100  > | attributes 100 } < get(field1)  100  > "s" 100  < chooseTextDNA(line3f0) 100 > < chooseTextDNA(line30) 10 >
  38.  
  39. 100  Subject(line30,line3f0)   < get(Dream1)  100  >  "s" 100 < get(wander1)  100  >  < get(on2)  100  > { "it" 50 | "my" 50 s_nouns 100 | "me" 100 | "the" 100 < get(field1)  100  > "s" 100 | s_articles 100 < get(field1)  100  > } "." 100 < chooseTextDNA(haiku) 100 >
  40. ****
  41. 100 subject(line10) < get(Dog1)  100  > < get(awake1)  50  > < get(dream1)  100  > "s" 100 ":" 50  < chooseTextDNA(line2g0) 100 > < chooseTextDNA(line20) 10 >
  42.  
  43. 100  Subject(line20,line2g0)  "     " 100 < get(I1)  100  > < get(lie1)  100  >  { < get(awake1)  100  > | < get(freely1)  100  > }  { "..." 50 | "." 50 | "" 100 } < chooseTextDNA(line3g0) 100 > < chooseTextDNA(line30) 10 >
  44.  
  45. 100  Subject(line30,line3g0)   "This" 100  < get(icy1)  100  >  < get(Sick1)  50  > < get(night1)  100  > "." 100 < chooseTextDNA(haiku) 100 >
  46. ****
  47. 100 subject(line10) { < get(Dog1)  100  > | < get(awake1)  100  > | attributes 100 } < get(night1)  100  > < chooseTextDNA(line2h0) 100 > < chooseTextDNA(line20) 10 >
  48.  
  49. 100  Subject(line20,line2h0)  "     " 100 < get(ing1)  100  > "," 100 { < get(ing1)  100  > | < get(parch1)  100  > "ing" 100 } < chooseTextDNA(line3h0) 100 > < chooseTextDNA(line30) 10 >
  50.  
  51. 100  Subject(line30,line3h0)  < get(wander1)  100  > "ing" 100 < get(sick1)  100  > < get(field1)  100  > { "..." 50 | "." 50 | "" 100 } < chooseTextDNA(haiku) 100 >
  52. ****
  53. 100 subject(line10) s_articles 100 < get(journey1)  100  > ":" 50 < chooseTextDNA(line2i0) 100 > < chooseTextDNA(line20) 10 >
  54.  
  55. 100  Subject(line20,line2i0)  "     " 100 < get(on1) 100 >  { < get(parch1)  100  > "ed" 100 | < get(Dog1)  100  > | < get(awake1)  100  > | attributes 100 } < get(field1)  100  > "s" 100  < chooseTextDNA(line3i0) 100 > < chooseTextDNA(line30) 10 >
  56.  
  57. 100  Subject(line30,line3i0)  s_articles 100 { < get(Dog1)  100  > | < get(awake1)  100  > | attributes 100 } < get(field1)  100  > < get(moves1)  100  > < get(freely1)  50  > "." 100 < chooseTextDNA(haiku) 100 >
  58. ***
  59. *haiku TextDNA: write pseudo-haiku that ignores syllabic structure
  60. 100 Subject(line10) < assign(HNoun,people) 100 > < assign(HNoun,animals) 30 > { < Get(HNoun) 100 > s_verbsnob 100 adverbs 100 |  < Get(HNoun) 100 > ":" 100 attributes 100 s_nouns 100 } < chooseTextDNA(line2j0) 100 > < chooseTextDNA(line20) 10 >
  61.  
  62. 100  Subject(line20,line2j0)  "     " 100 { s_verbsnob 100 s_nouns 100 adverbs 100  |  adverbs 100 "," 100 adverbs 100 "," 75 adverbs 100 |  adverbs 100 "," 75 adverbs 100 "," 75 attributes 100 | attributes 100 "," 25 attributes 100  "," 25 attributes 100 } < chooseTextDNA(line3j0) 100 > < chooseTextDNA(line30) 10 >
  63.  
  64. 100  Subject(line30,line3j0)  { "a" 100 attributes 100 attributes 30 < Get(HNoun) 100 > | adjectives 100 attributes 100  s_nouns 100 | attributes 100 attributes 100  < Get(HNoun) 100 > | "Look!" 100 "a" 100 adjectives 100  people 100  | "Ah!" 100 "a" 100 adjectives 100  people 100 |  "this" 100  < Get(HNoun) 100 > "is" 100 attributes 100 | "that" 100 < Get(HNoun) 100 > "is" 100 attributes 100 } < chooseTextDNA(haiku) 100 >
  65. *
  66. 100 Subject(line10) < assign(HNoun,s_nouns) 100 >  { < Get(HNoun) 100 > s_verbsnob 100 adverbs 100 |  < Get(HNoun) 100 > ":" 100 adjectives 100 s_nouns 100 } < chooseTextDNA(line2k0) 100 > < chooseTextDNA(line20) 10 >
  67.  
  68. 100  Subject(line20,line2k0)  "     " 100 { s_verbsnob 100 s_nouns 100 adverbs 100  |  adverbs 100 "," 100 adverbs 100 "," 75 adverbs 100 |  adverbs 100 "," 75 adverbs 100 "," 75 adjectives 100 | adjectives 100 "," 25 adjectives 100  "," 25 adjectives 100 } < chooseTextDNA(line3j0) 100 > < chooseTextDNA(line30) 10 >
  69.  
  70. 100  Subject(line30,line3k0)  { < Get(HNoun) 100 > "of" 100 adjectives 100 s_nouns 100 |  adjectives 100 adjectives 100  s_nouns 100 | adjectives 100 adjectives 100  < Get(HNoun) 100 > | "Look!" 100 "a" 100 adjectives 100  s_nouns 100  | "Aha!" 100 "a" 100 adjectives 100  s_nouns 100 } < chooseTextDNA(haiku) 100 >
  71. *
  72. 100 Subject(line10) < assign(HNoun,s_nouns) 100 > { s_articles 100 adjectives 100 < Get(HNoun) 100 >  |   adjectives 100 "," 100 adjectives 100  < Get(HNoun) 100 > } < chooseTextDNA(line2l0) 100 > < chooseTextDNA(line20) 10 >
  73.  
  74. 100  Subject(line20,line2l0)  "     " 100 { s_articles 100  adjectives 100 s_nouns 100 |  s_nouns 100 "of" 100 s_nouns 100 } < chooseTextDNA(line3l0) 100 > < chooseTextDNA(line30) 10 >
  75.  
  76. 100  Subject(line30,line3l0)  { s_verbs_to 100  s_articles 100 s_nouns 100 |  adverbs 100 "," 100 adverbs 100 "," 100 < Get(HNoun) 100 > } < chooseTextDNA(haiku) 100 >
  77. *
  78. 100 Subject(line10) < assign(AD1,adjectives) 100 > < assign(P1,people) 100 > < assign(A1,attributes) 100 > < assign(N1,s_nouns) 100 > { s_articles 100 < Get(A1) 100 > < Get(P1) 100 > | < Get(A1) 100 > < Get(P1) 100 > s_verbsnob 100 } < chooseTextDNA(line2m0) 100 > < chooseTextDNA(line20) 10 >
  79.  
  80. 100  Subject(line20,line2m0) "     " 100 { s_articles 100 < Get(AD1) 100 > s_nouns 100 | s_articles 100 < Get(A1) 100 > < Get(N1) 100 > | < Get(A1) 100 > < Get(N1) 100 > s_verbsnob 100 } < chooseTextDNA(line3m0) 100 > < chooseTextDNA(line30) 10 >
  81.  
  82. 100  Subject(line30,line3m0)  { < Get(A1) 100 > < Get(N1) 100 > s_verbsnob 100 | s_articles 100  < Get(A1) 100 > < Get(P1) 100 > s_verbsnob 100 | < Get(AD1) 100 > "is" 100 "just" 10 "like" 30 < Get(A1) 100 > | s_articles 100 < Get(AD1) 100 > < Get(P1) 100 > | < Get(AD1) 100 > < Get(A1) 100 > < Get(P1) 100 > | "is" 100 "not" 30 < Get(AD1) 100 > < Get(A1) 100 > "?" 100 | "how" 30 "is" 100  s_articles 100 < Get(P1) 100 > < Get(AD1) 100 > "?" 100 | < Get(AD1) 100 > < Get(P1) 100 > s_verbsnob 100 | "a" 100  < Get(N1) 100 > "is a" 100 < Get(AD1) 100 > < Get(P1) 100 > | "is a" 100  < Get(N1) 100 > < Get(A1) 100 > "?" 100 } < chooseTextDNA(haiku) 100 >
  83.